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UNIVERSITY OF ILUHOIB 
DIGITAL COMPUTER 

LIBRARY ROUTIS E 1 16 - 286 

Mixed Number Input (DOI or SADOl) 

m 
Closed with standard entry 

kl 

+ 2^ 

Input time + 1.7 ms 

Enter the subroutine with link address in Q. The number 
to be read must be punched on tape subject to the 
following conditions and in the following order: r 

1. Sign digit (do not omit + for positive number)* I 

2. Up to 12 digits in integer part N, with 
+5^9, 755, 813, 877 > H > -5^9, 755, 813, 888, 
Fifth hole characters of any kind except a decimal 
point may separate the digits of the integer part. 

3- Decimal point. If there is no integer part, the 
decimal point may follow directly after the sign. 

k. Up to 12 digits in the fractional part F, where 
|F| < .999999999999, and 
no fifth hole characters may separate the digits of F« 

5 • Any fifth hole character to terminate input of the 
number. 

On exit from this routine, the double-length number H. 

F will be in AQ, integer part in A and fractional part 

in Q, with a * 0. . The number will have the proper 

79-digit two's - complement representation, whereas 

the number as punched on the tape is in sign - absolute 

magnitude representation. 

If the sign digit is omitted, the routine will stop on 

an FF stop in location k, relative. 

Proper input format may be in the forms 

+0.0, +., -0.0, -2.7, +333,333,333.500 00,- . 

but the f oraat 

+5,000.000,000 



- 2 - 

is incorrect because of the 5th hole character among 
the digits of the fractional part. 
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OOK (KL6) 







L5 19L 






42 17L 


Set first list address for fractional part 


1 


4l IF 






K5 F 


R. H. A. used to save sign bit 


2 


k2 26L 






81 4f 


Plant link and read sign 


3 


LO 28L 






42 1L 


Plant sign "bit 


k 


36 8L 






FF F 


Jump to input integer part 


5 


10 3F 
■ lh IF 




6 


00 2F 

lA IF 




7 


00 IF 
kO IF 




8 


91 4F 
36 5L 




9 


LO 28L 






40 F 


Test for decimal point 


10 


L7 F 






36 8L 




11 


27 l4L 






10 3F 


Input fractional part 


12 


L4 2F 
00 2F 




13 


Ik 2F 
00 IF 




Ik 


40 2F 






F5 17L 


Step list address 


15 


42 17L 
42 18L 
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91 4F 
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11L 


L5 


2F 


50 


F 


SO 


F 


66 


F 


10 


IF 


SJ 27L 


40 


2F 


L5 


1L 


50 29L 


00 


39F 


36 27L 


89 


IF 


LO 


2F 


36 25L 


U. 


IF 


26 26L 


ko 


2F 


Fl 


IF 


50 2F 


22 


F 


L5 


IF 


26 26L 


00 


F 


00 


10F 


00 


F 


00 


5F 


00 


F 


00 


50F 


00 


F 


00 


500F 


00 


F 


00 


5000F 


00 


F 
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Terminate reading of fractional part on 5th 
hole character 



Compute properly rounded fractional part 



Check sign bit 



here if - 



Take negative of fractional part 



F = 0, take negative of integer part 



Store fractional part, complement integer part 



fractional part to Q, exit via link 



if +, exit immediately 



Constant to test for signs and decimal point 



Table of l/2 10°*, 



— J 



LOCATCCH 



00 500&0F 

51*. 00 P 

00 5000 Qffi 
35 00 P 

00 5000 OOtfF 
36m OOF I 

00 5600 OOOOP 

37 00 F 
00 5000 0000 OF 

38 00 F 
00 5000 0000 OOF 

39 00 F 
00 5000 0000 OOOF 

kO 00 F I 

00 5000 ooqo oooof 
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n * no. of digits in fractional part 
f 



